home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
fb386
/
graf
/
a14.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-30
|
972b
|
37 lines
1000 SCREEN@ 0
1010 CLS
1020 WINDOW (-5,-5)-(5,5)
1030 VIEW(0,0)-(640,480)
1040 PP=3.14159!/180:A=.45!:B=.4!:X2=X
1050 A$="☆☆☆ 少しずつカーブのずれた曲線を描いて立体感を出しています。 ☆☆☆"
1060 AA=LEN(A$):BB=(80-AA)\2:LOCATE 0,24:PRINT SPACE$(BB)+A$
1070 T1=TIME:S=0
1080 FOR X=-4 TO 4 STEP .2!
1090 Y=-4.4!
1100 GOSUB *MAIN
1110 POINT(XX,YY)
1120 FOR Y=-4.4! TO 4.4! STEP .2!
1130 GOSUB *MAIN
1140 LINE -(XX,YY),PSET,5
1150 NEXT
1160 S=S+1
1170 NEXT
1180 FOR Y=-4.4! TO 4.4! STEP .2!
1190 X=-4
1200 GOSUB *MAIN
1210 POINT(XX,YY)
1220 FOR X=-4 TO 4 STEP .2!
1230 GOSUB *MAIN
1240 LINE -(XX,YY),PSET,4
1250 NEXT
1260 S=S+1
1270 NEXT
1280 T2=TIME:T=T2-T1:LOCATE 5,1:PRINT "描き上げる時間--";T;"秒 描いた曲線の数--";S;"本"
1290 WAIT 100:X2=X2+X
1300 GOTO 1350
1310 *MAIN
1320 XX=1.5!*A*X+A*Y
1330 YY=B*X-B*Y-.3!*SIN(3*X)*COS(Y)
1340 RETURN
1350 '